home *** CD-ROM | disk | FTP | other *** search
/ Web Star/List Star - Eve…he Ultimate Internet Site / StarNine Internet Pubisher (Web Star and List Star)(StarNine)(1995).iso / ListSTAR™ / Tools and Enhancments / Paging with ListSTAR / PageNOW! / PageNOW! Subscribers v1.0 < prev   
Text File  |  1995-08-04  |  2KB  |  45 lines
  1. -----------------------------------------------------------------------
  2. -- StarNine Technologies, Inc., hereby disclaims all copyright interest
  3. -- in the following source code written by Joshua D. Baer.
  4. -- 
  5. -- This source code is free and has been placed into the public domain.
  6. -- You can redistribute it, modify it (including these comments) and/or
  7. -- create derivative works from it as you see fit.
  8. --
  9. -- This source code is made available in the hope that it will be useful,
  10. -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12. -----------------------------------------------------------------------
  13. --Place this script in the folder with the same name as the service you just created
  14. --(ie. Hard Drive->ListSTAR/SMTP->Services-><Service Name>).
  15. --Change the value for the ServiceName variable to be the same as the name of your Service.
  16.  
  17. set ServiceName to "<your Service Name>"
  18.  
  19. --End of Configuration Area
  20.  
  21.  
  22. set theBody to ""
  23.  
  24. --first, create body of message line by line
  25. set theBody to "This PageNOW! server supports the following subscribers:" & return
  26. tell application "PageNOW!™"
  27.     repeat with theName in subscriber names
  28.         set theBody to theBody & theName & return
  29.     end repeat
  30.     set theBody to theBody & return & "This PageNOW! server supports the following groups:" & return
  31.     repeat with theName in group names
  32.         set theBody to theBody & theName & return
  33.     end repeat
  34. end tell
  35.  
  36.  
  37. --next send as body of message to ListSTAR Server
  38. tell application "ListSTAR Server"
  39.     StarNine Send ¬
  40.         ServiceName To s9SenderEmailAddress ¬
  41.         Subject ¬
  42.         "Re: subscribers" Body theBody
  43. end tell
  44.  
  45. return 0